home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1999 #6 / 1999 CD 6 (black).iso / K-CS.dcr / Maanedlig_89_KProg7.ls < prev    next >
Encoding:
Text File  |  1999-03-18  |  280 b   |  16 lines
  1. global ShowWarnings, MustWarn, Syskrav
  2.  
  3. on mouseDown
  4.   puppetSound(3, "Knap")
  5. end
  6.  
  7. on mouseUp
  8.   RedAlert(Syskrav)
  9.   if ShowWarnings or MustWarn then
  10.     SetFields(Syskrav)
  11.     go("K7Chicken")
  12.   else
  13.     baShell("open", "DelphiDKProg.exe", EMPTY, "Delphi3", "normal")
  14.   end if
  15. end
  16.